home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VSTHEIGH.S
< prev
next >
Wrap
Text File
|
1993-03-26
|
2KB
|
57 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Set character height, absolute mode.
;*------------------------------------------------------------------------
globl _vst_height
_vst_height:
; .cargs #8,handle.w,height.w,charw.l,charh.l,cellw.l,cellh.l
handle = 8
height = 10
charw = 12
charh = 16
cellw = 20
cellh = 24
link a6,#-8 ;* Allocate ptsout[4].
move.w height(a6),-(sp) ;* ptsin[1] = height.
clr.w -(sp) ;* ptsin[0] = 0.
move.l sp,a0 ;* Save a pointer to ptsin.
; VContrl #12,,#1
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
clr.l -(sp) ; contrl[3,2]
move.w #1,-(sp) ; contrl[1]
move.w #12,-(sp) ; contrl[0]
pea -8(a6) ;* -> ptsout
subq.l #4,sp ;* -> intout
move.l a0,-(sp) ;* -> ptsin
subq.l #4,sp ;* -> intin
pea 16(sp) ;* -> contrl
move.l sp,d1
jsr vditrap
lea -8(a6),a1 ;* a1 -> ptsout[0] on stack.
move.l charw(a6),a0 ;* Return character width
move.w (a1)+,(a0) ;* from ptsout[0].
move.l charh(a6),a0 ;* Return character height
move.w (a1)+,(a0) ;* from ptsout[1].
move.l cellw(a6),a0 ;* Return cell width
move.w (a1)+,(a0) ;* from ptsout[2].
move.l cellh(a6),a0 ;* Return cell height
move.w (a1),(a0) ;* from ptsout[3].
unlk a6
rts
end